\insert 'FewFind.oz'
\insert 'ApplyRules.oz'

%%
%% Task 5
%%

declare Compress

fun {Compress Moves}
   local CompressedMoves in 
      CompressedMoves = {RemoveZero {ApplyRules Moves}}
      if CompressedMoves==Moves then
	 Moves
      else
	 {Compress CompressedMoves}
      end
   end
end
